Column

Padrão temporal de vendas

Custo de entrega

Column

Custo da mão de obra por estado

Lucro para cada fabricante

---
title: "Venda de carros"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    theme: cerulean
    vertical_layout: scroll
    source_code: embed
---

```{r setup, include= F}
setwd("C:\\Users\\Edgar\\OneDrive - unb.br\\Venda_de_carros\\Venda_de_Carros")
library(openxlsx)
library(tidyverse)
library(ggplot2)
```


```{r}
#Carregando e visualizando os dados.
dados<- read.xlsx("DadosVendaCarros.xlsx")
```


```{r}
#Construindo o conjunto de dados para avaliar o total de vendas por ano. Irei preparar também um conjunto de dados do total de vendas por ano para a marca Jaguar.
# Criando a matriz com o número de vendas por ano para todas as marcas.
TVanos<- data.frame(table(dados$Ano))
names(TVanos)<- c("Ano","Total")

# Criando a matriz do número de vendas por ano do carros da marca Jaguar.
TVAjaguar<- dados%>%filter(Fabricante=="Jaguar")%>%
  select(Ano)%>%table()%>%data.frame()
names(TVAjaguar)<- c("Ano","Total")

#Juntando em um mesmo dataframe
vanuais<-rbind.data.frame(TVanos,TVAjaguar)
vanuais<- rep(c("Total","Jaguar"), each= 4)%>%data.frame(vanuais)
names(vanuais)<- c("Escala","Ano","Total")
```

```{r}
#Transformando Escala em fator e ano em numérico.
vanuais$Escala<- as.factor(vanuais$Escala)
vanuais$Ano<- as.numeric(as.character(vanuais$Ano))
```


```{r}
#Gerando o conjunto de dados do custo de entrega de veículos por fabricante.
entrega<- dados%>%filter(Ano==2019)%>% select(Fabricante,ValorCusto)%>% group_by(Fabricante)%>%
  summarise(valor_entrega= mean(ValorCusto))
entrega$Fabricante<- as.factor(entrega$Fabricante)
```


```{r}
#Gerando o conjunto de dados do custo de mão de obra por estado.
mobra<- dados%>%filter(Ano==2019)%>%select(Estado,CustoMaoDeObra)%>% group_by(Estado)%>%
  summarise(Media_MaoDeObra= mean(CustoMaoDeObra))

```


```{r}
#Conjunto de dados para avaliar o lucro de cada marca, iremos analizar apenas com dados de 2019.
dluc<- dados%>%filter(Ano==2019)%>%
  select(Fabricante,Modelo,ValorVenda, ValorCusto)

gluc<- dluc%>%group_by(Fabricante)%>% summarise(Mvendas= mean(ValorVenda, na.rm= T), Mcusto= mean(ValorCusto, na.rm= T))

lucro<- gluc%>%mutate(lucro= Mvendas - Mcusto)
lucro<- arrange(lucro,desc(lucro))

```

Column {data-width=650}
-----------------------------------------------------------------------

### Padrão temporal de vendas

```{r}
ggplot(vanuais, aes(Ano, Total,colour= Escala))+
  geom_line(size= 1)+
  geom_point(size= 4)+
  scale_y_continuous(limits = c(10,240), breaks = seq(10,240,20))+
  annotate("text", x = vanuais$Ano, y =vanuais$Total+11, 
           label = vanuais$Total, size= 5)+
  ylab("Total de vendas")+
  theme_bw()+
  theme(panel.grid= element_blank(), axis.title = element_text(size= 16),
        axis.text = element_text(size= 14, color = "black"), legend.title= element_blank(),
        legend.text = element_text(size = 14))
```


### Custo de entrega

```{r, fig.width=10}
ggplot(entrega, aes(Fabricante, valor_entrega))+
  geom_col(fill="black")+
  coord_flip()+
  annotate("text", x =entrega$Fabricante, y =entrega$valor_entrega+3000, 
           label = round(entrega$valor_entrega, 2), size= 4)+
  ylab("Valor de entrega")+
  xlab("Fabricante")+
  theme_bw()+
  theme(panel.grid= element_blank(), axis.title = element_text(size= 16),
        axis.text = element_text(size= 14, color = "black"), legend.title= element_blank(),
        legend.text = element_text(size = 12))
```


Column {data-width=350}
-----------------------------------------------------------------------

### Custo da mão de obra por estado

```{r}
ggplot(mobra, aes(Estado, Media_MaoDeObra))+
  geom_col(fill="black")+
  coord_flip()+
  annotate("text", x =mobra$Estado, y =mobra$Media_MaoDeObra+80, 
          label =round(mobra$Media_MaoDeObra,2), size= 4)+
  scale_y_continuous(limits = c(0,1200), breaks = seq(0,1200,150))+
  ylab("Valor de entrega")+
  xlab("Fabricante")+
  theme_bw()+
  theme(panel.grid= element_blank(), axis.title = element_text(size= 16),
        axis.text = element_text(size= 14, color = "black"), legend.title= element_blank(),
        legend.text = element_text(size = 12))
```

### Lucro para cada fabricante

```{r}
ggplot(lucro, aes(Fabricante, lucro))+
  geom_col(fill= "black")+
  coord_flip()+
  ylab("Lucro")+
  xlab("Fabricante")+
  theme_bw()+
  theme(panel.grid= element_blank(), axis.title = element_text(size= 16),
        axis.text = element_text(size= 14, color = "black"), legend.title= element_blank(),
        legend.text = element_text(size = 12))
```